home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSOFF11.ZIP / AGSOFF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-12-29  |  6KB  |  430 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   TSTRING001(6)
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     Declare  Procedure PROC001()
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     TSTRING001(1) = "        _ ______              _ ______              _ ________ _ _______ _"
  47.     TSTRING001(2) = " _   _ _ /   __/_____________  /  ___/________________\______/___\_____/_ _  _"
  48.     TSTRING001(3) = " _  _kL_/    \     \     _   \/   \     \     _   \   _ _/____/ _ _/____/  _  _"
  49.     TSTRING001(4) = "_ _  _ \      \     \_   /    \_   \__   \_   /    \_       \_        \_  _   _"
  50.     TSTRING001(5) = "  _  _ _\____________/_________/__________/_________/________/_________/_ _  _"
  51.     TSTRING001(6) = ""
  52.     STRING002 = "==============================================================================="
  53.     STRING003 = "============================================================================="
  54.     STRING004 = "==========================================================================="
  55.     If (Exist(PPEPath() + "AGSOFF.CFG")) Goto LABEL001
  56.     PrintLn "@X0Cu@X04H@X08! bAD tHING! tHE cONFIG fILE wAS nOT fOUND. nORMAL lOGOFF..."
  57.     Delay 18
  58.     Bye
  59.     :LABEL001
  60.     FOpen 1, PPEPath() + "AGSOFF.CFG", 0, 2
  61.     FGet 1, INTEGER001
  62.     FGet 1, INTEGER002
  63.     FGet 1, INTEGER003
  64.     FGet 1, INTEGER005
  65.     FGet 1, STRING006
  66.     FGet 1, STRING007
  67.     FGet 1, STRING008
  68.     FGet 1, STRING009
  69.     FGet 1, STRING010
  70.     FGet 1, STRING011
  71.     FClose 1
  72.     Cls
  73.     FOpen 1, PPEPath() + "AGSOFF.DAT", 0, 2
  74.     FGet 1, STRING005
  75.     FClose 1
  76.     Color INTEGER001
  77.     AnsiPos 63, 23
  78.     Print "AEGiS LoGOFF V1.1"
  79.     Color INTEGER003
  80.     AnsiPos 1, 1
  81.     Print "-"
  82.     AnsiPos 79, 10
  83.     Print "-"
  84.     Delay 1
  85.     Color INTEGER002
  86.     AnsiPos 2, 1
  87.     Print "-"
  88.     AnsiPos 78, 10
  89.     Print "-"
  90.     Delay 1
  91.     Color INTEGER001
  92.     For INTEGER007 = 1 To 19
  93.         AnsiPos INTEGER007 * 4 - 1, 1
  94.         Print "----"
  95.         AnsiPos 78 - INTEGER007 * 4, 10
  96.         Print "----"
  97.         Delay 1
  98.     Next
  99.     Color INTEGER002
  100.     AnsiPos 78, 1
  101.     Print "-"
  102.     AnsiPos 2, 10
  103.     Print "-"
  104.     Delay 1
  105.     Color INTEGER003
  106.     AnsiPos 79, 1
  107.     Print "-"
  108.     AnsiPos 1, 10
  109.     Print "-"
  110.     Delay 4
  111.     AnsiPos 1, 8
  112.     Color INTEGER001
  113.     Print TSTRING001(6)
  114.     Delay 1
  115.     AnsiPos 1, 7
  116.     Color INTEGER001
  117.     Print TSTRING001(5)
  118.     Delay 1
  119.     AnsiPos 1, 8
  120.     Color INTEGER003
  121.     Print TSTRING001(6)
  122.     Delay 1
  123.     AnsiPos 1, 6
  124.     Color INTEGER001
  125.     Print TSTRING001(4)
  126.     Delay 1
  127.     AnsiPos 1, 7
  128.     Color INTEGER003
  129.     Print TSTRING001(5)
  130.     Delay 1
  131.     AnsiPos 1, 5
  132.     Color INTEGER001
  133.     Print TSTRING001(3)
  134.     Delay 1
  135.     AnsiPos 1, 6
  136.     Color INTEGER002
  137.     Print TSTRING001(4)
  138.     Delay 1
  139.     AnsiPos 1, 4
  140.     Color INTEGER001
  141.     Print TSTRING001(2)
  142.     Delay 1
  143.     AnsiPos 1, 3
  144.     Color INTEGER001
  145.     Print TSTRING001(1)
  146.     Delay 4
  147.     AnsiPos 1, 12
  148.     Color INTEGER001
  149.     Print STRING002
  150.     AnsiPos 1, 14
  151.     Color INTEGER001
  152.     Print STRING002
  153.     Delay 2
  154.     AnsiPos 1, 12
  155.     Color INTEGER001
  156.     Print STRING002
  157.     AnsiPos 1, 14
  158.     Color INTEGER002
  159.     Print STRING002
  160.     Delay 2
  161.     AnsiPos 1, 12
  162.     Color INTEGER003
  163.     Print STRING002
  164.     Delay 2
  165.     AnsiPos 1, 14
  166.     Color INTEGER003
  167.     Print STRING002
  168.     Delay 2
  169.     AnsiPos 2, 12
  170.     Color INTEGER002
  171.     Print STRING003
  172.     Delay 2
  173.     AnsiPos 2, 14
  174.     Color INTEGER002
  175.     Print STRING003
  176.     Delay 2
  177.     AnsiPos 3, 12
  178.     Color INTEGER001
  179.     Print STRING004
  180.     AnsiPos 3, 14
  181.     Color INTEGER001
  182.     Print STRING004
  183.     Color INTEGER001
  184.     AnsiPos 40 - Len(STRING005) / 2, 11
  185.     Print STRING005
  186.     Delay 3
  187.     Color INTEGER002
  188.     AnsiPos 40 - Len(STRING005) / 2, 11
  189.     Print STRING005
  190.     Delay 3
  191.     Color INTEGER003
  192.     AnsiPos 40 - Len(STRING005) / 2, 11
  193.     Print STRING005
  194.     Color INTEGER002
  195.     For INTEGER007 = 1 To 78
  196.         AnsiPos 79 - INTEGER007, 13
  197.         Print Mid(STRING006, 79 - INTEGER007, 1)
  198.     Next
  199.     INTEGER008 = 1
  200.     INTEGER009 = 1
  201.     AnsiPos 1, 13
  202.     Print STRING007
  203.     PROC001()
  204.     :LABEL002
  205.     STRING012 = Inkey()
  206.     If (((STRING012 == "LEFT") || (STRING012 == "4")) && (INTEGER008 <> 1)) Then
  207.         INTEGER009 = INTEGER008
  208.         Dec INTEGER008
  209.         If (INTEGER009 == 3) Then
  210.             AnsiPos 1, 13
  211.             Print STRING010
  212.             Delay 1
  213.             AnsiPos 1, 13
  214.             Print STRING009
  215.             PROC001()
  216.         Endif
  217.         If (INTEGER009 == 2) Then
  218.             AnsiPos 1, 13
  219.             Print STRING008
  220.             Delay 1
  221.             AnsiPos 1, 13
  222.             Print STRING007
  223.             PROC001()
  224.         Endif
  225.     Endif
  226.     If (((STRING012 == "RIGHT") || (STRING012 == "6")) && (INTEGER008 <> 3)) Then
  227.         INTEGER009 = INTEGER008
  228.         Inc INTEGER008
  229.         If (INTEGER009 == 1) Then
  230.             AnsiPos 1, 13
  231.             Print STRING008
  232.             Delay 1
  233.             AnsiPos 1, 13
  234.             Print STRING009
  235.             PROC001()
  236.         Endif
  237.         If (INTEGER009 == 2) Then
  238.             AnsiPos 1, 13
  239.             Print STRING010
  240.             Delay 1
  241.             AnsiPos 1, 13
  242.             Print STRING011
  243.             PROC001()
  244.         Endif
  245.     Endif
  246.     If (STRING012 == Chr(13)) Goto LABEL003
  247.     Goto LABEL002
  248.     :LABEL003
  249.     If (INTEGER008 == 2) Then
  250.         Color INTEGER002
  251.         AnsiPos 40 - Len(STRING005) / 2, 11
  252.         Print STRING005
  253.         Delay 2
  254.         Color INTEGER001
  255.         AnsiPos 40 - Len(STRING005) / 2, 11
  256.         Print STRING005
  257.         Delay 2
  258.         AnsiPos 1, 11
  259.         ClrEol
  260.         STRING005 = "CoOL! ;)"
  261.         Color INTEGER001
  262.         AnsiPos 40 - Len(STRING005) / 2, 11
  263.         Print STRING005
  264.         Delay 2
  265.         Color INTEGER002
  266.         AnsiPos 40 - Len(STRING005) / 2, 11
  267.         Print STRING005
  268.         Delay 2
  269.         Color INTEGER003
  270.         AnsiPos 40 - Len(STRING005) / 2, 11
  271.         Print STRING005
  272.         Delay 3
  273.         For INTEGER007 = 1 To 14
  274.             AnsiPos 1, 15 - INTEGER007
  275.             Delay 1
  276.             ClrEol
  277.         Next
  278.         End
  279.     Endif
  280.     If (INTEGER008 == 1) Then
  281.         For INTEGER007 = 1 To 14
  282.             AnsiPos 1, 15 - INTEGER007
  283.             Delay 1
  284.             ClrEol
  285.         Next
  286.         Cls
  287.         Goodbye
  288.     Endif
  289.     If (INTEGER008 == 3) Then
  290.         Color INTEGER002
  291.         AnsiPos 40 - Len(STRING005) / 2, 11
  292.         Print STRING005
  293.         Delay 2
  294.         Color INTEGER001
  295.         AnsiPos 40 - Len(STRING005) / 2, 11
  296.         Print STRING005
  297.         Delay 2
  298.         AnsiPos 1, 11
  299.         ClrEol
  300.         Color INTEGER002
  301.         Print " "
  302.         Backup 1
  303.         STRING013 = STRING005
  304.         STRING005 = ""
  305.         InputStr "_", STRING005, 15, 79, Mask_Ascii(), 4096
  306.         If (INTEGER005 == 1) Then
  307.             STRING005 = Replace(STRING005, "@", "#")
  308.             INTEGER004 = 0
  309.             STRING014 = STRING005
  310.             For INTEGER006 = 1 To Len(STRING014)
  311.                 If (InStr("0123456789", Mid(STRING014, INTEGER006, 1)) <> 0) Then
  312.                     INTEGER004 = INTEGER004 + 1
  313.                 Endif
  314.             Next
  315.             GetUser
  316.             If (INTEGER004 > 5) STRING005 = U_Name() + " TRIED TO ENTER A BBSAD HERE  *LAME*"
  317.         Endif
  318.         If (STRING005 == "") STRING005 = STRING013
  319.         AnsiPos 1, 11
  320.         ClrEol
  321.         Color INTEGER001
  322.         AnsiPos 40 - Len(STRING005) / 2, 11
  323.         Print STRING005
  324.         Delay 2
  325.         Color INTEGER002
  326.         AnsiPos 40 - Len(STRING005) / 2, 11
  327.         Print STRING005
  328.         Delay 2
  329.         Color INTEGER003
  330.         AnsiPos 40 - Len(STRING005) / 2, 11
  331.         Print STRING005
  332.         Delay 3
  333.         FOpen 1, PPEPath() + "AGSOFF.DAT", 1, 3
  334.         FPutLn 1, STRING005
  335.         FClose 1
  336.         INTEGER008 = 3
  337.         INTEGER009 = 3
  338.         AnsiPos 1, 13
  339.         Print STRING011
  340.         PROC001()
  341.         Goto LABEL002
  342.     Endif
  343.     End
  344.  
  345. ;------------------------------------------------------------------------------
  346.  
  347.     Procedure PROC001()
  348.  
  349.     AnsiPos 1, 23
  350.     Color 0
  351.     Print " "
  352.     Backup 1
  353.  
  354.     EndProc
  355.  
  356.  
  357. ;------------------------------------------------------------------------------
  358. ;
  359. ; Usage report (before postprocessing)
  360. ;
  361. ; ■ Statements used :
  362. ;
  363. ;    2       End
  364. ;    2       Cls
  365. ;    5       ClrEol
  366. ;    41      Color 
  367. ;    25      Goto 
  368. ;    35      Let 
  369. ;    56      Print 
  370. ;    1       PrintLn 
  371. ;    20      If 
  372. ;    3       FOpen 
  373. ;    3       FClose 
  374. ;    11      FGet 
  375. ;    1       FPutLn 
  376. ;    1       GetUser
  377. ;    1       InputStr 
  378. ;    39      Delay 
  379. ;    1       Inc 
  380. ;    1       Dec 
  381. ;    1       Bye
  382. ;    1       Goodbye
  383. ;    60      AnsiPos 
  384. ;    2       Backup 
  385. ;    1       EndProc
  386. ;
  387. ;
  388. ; ■ Functions used :
  389. ;
  390. ;    2       *
  391. ;    13      /
  392. ;    11      +
  393. ;    19      -
  394. ;    14      ==
  395. ;    3       <>
  396. ;    5       <
  397. ;    5       <=
  398. ;    1       >
  399. ;    10      >=
  400. ;    17      !
  401. ;    12      &&
  402. ;    7       ||
  403. ;    15      Len(
  404. ;    2       Mid()
  405. ;    1       Chr()
  406. ;    1       InStr()
  407. ;    1       U_Name()
  408. ;    1       Replace()
  409. ;    1       Inkey()
  410. ;    1       Mask_Ascii()
  411. ;    4       PPEPath()
  412. ;    1       Exist()
  413. ;
  414. ;------------------------------------------------------------------------------
  415. ;
  416. ; Analysis flags : No flag
  417. ;
  418. ;------------------------------------------------------------------------------
  419. ;
  420. ; Postprocessing report
  421. ;
  422. ;    5       For/Next
  423. ;    0       While/EndWhile
  424. ;    11      If/Then or If/Then/Else
  425. ;    0       Select Case
  426. ;
  427. ;------------------------------------------------------------------------------
  428. ;                 AEGiS Corp - Break the routines, code against the machines!
  429. ;------------------------------------------------------------------------------
  430.